home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 201 / DPCS1104.ISO / Full / QuickBooks / QBTutor / Lesson5 / Lesson5.dcr / 00279_red box sliderize invoice.ls < prev    next >
Encoding:
Text File  |  2001-02-01  |  1.7 KB  |  42 lines
  1. property RedBoxSprite, TargetSprite, pMargins, PropLeftEdge, PropTopEdge, PropRightEdge, PropBottomEdge, oldLeft, oldTop, oldRight, oldBottom, BoxMoveCount, spriteNum
  2.  
  3. on getPropertyDescriptionList
  4.   description = [:]
  5.   addProp(description, #RedBoxSprite, [#default: -1, #format: #number, #comment: "Red Box Sprite:"])
  6.   addProp(description, #TargetSprite, [#default: -1, #format: #number, #comment: "Target Sprite:"])
  7.   addProp(description, #pMargins, [#default: -1, #format: #number, #comment: "Margins:"])
  8.   return description
  9. end
  10.  
  11. on beginSprite me
  12.   BoxMoveCount = 0
  13.   oldLeft = sprite(RedBoxSprite).left
  14.   oldTop = sprite(RedBoxSprite).top
  15.   oldRight = sprite(RedBoxSprite).right
  16.   oldBottom = sprite(RedBoxSprite).bottom
  17. end
  18.  
  19. on exitFrame me
  20.   steps = 15
  21.   PropLeftEdge = sprite(TargetSprite).left - pMargins
  22.   PropTopEdge = sprite(TargetSprite).top - pMargins
  23.   PropRightEdge = sprite(TargetSprite).right + pMargins
  24.   PropBottomEdge = sprite(TargetSprite).bottom + pMargins
  25.   if BoxMoveCount < steps then
  26.     BoxMoveCount = BoxMoveCount + 1
  27.     dLeft = oldLeft + (((1.0 * PropLeftEdge) - oldLeft) / steps * BoxMoveCount)
  28.     dTop = oldTop + (((1.0 * PropTopEdge) - oldTop) / steps * BoxMoveCount)
  29.     dRight = oldRight + (((1.0 * PropRightEdge) - oldRight) / steps * BoxMoveCount)
  30.     dBottom = oldBottom + (((1.0 * PropBottomEdge) - oldBottom) / steps * BoxMoveCount)
  31.     sprite(RedBoxSprite).locH = dLeft
  32.     sprite(RedBoxSprite).locV = dTop
  33.     sprite(RedBoxSprite).width = dRight - dLeft
  34.     sprite(RedBoxSprite).height = dBottom - dTop
  35.   else
  36.     sprite(RedBoxSprite).locH = PropLeftEdge
  37.     sprite(RedBoxSprite).locV = PropTopEdge
  38.     sprite(RedBoxSprite).width = PropRightEdge - PropLeftEdge
  39.     sprite(RedBoxSprite).height = PropBottomEdge - PropTopEdge
  40.   end if
  41. end
  42.